home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / autofind / source / menutogl.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  550 b   |  29 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Class MenuToggle
  3. in module Autofinder
  4.  
  5. if NOT (isdefined Switch) do filein theScriptDir name:"switch.sx"
  6.  
  7. class MenuToggle (TwoDShape, Switch)
  8. instance variables
  9.     name
  10. end
  11.  
  12. method init self {class MenuToggle} #rest args #key x: y: \
  13.     toggledOffBitmap: \
  14.     toggledOnBitmap: \
  15.     name: ->
  16. (
  17.     apply nextMethod self args
  18.     
  19.     self.name := name
  20.     self.toggledOnBitmap := toggledOnBitmap
  21.     self.toggledOffBitmap := toggledOffBitmap
  22.     self.x := x
  23.     self.y := y
  24. --    self.activateAction := (adata pb toggledOn -> print pb.name)
  25. )
  26.  
  27.  
  28. "Compiled Menutogl.sx"
  29. -->>>